home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b3.d64
/
program94
< prev
next >
Wrap
Text File
|
2007-02-28
|
752b
|
29 lines
0010 // PROGRAM 94
0020 //
0030 // COMELY KATE
0040 //
0050 // TO FIND A SUBSTRING OF A STRING
0060 //
0070 DIM STRING$ OF 50, SUBSTRING$ OF 50
0080 STRING$:="THE CAT SAT CONTENTEDLY ON THE MAT"
0090 PRINT "WHAT PATTERN DO YOU WISH TO SEARCH FOR"
0095 INPUT SUBSTRING$
0100 FINDSUBSTRING
0110 END
0120 //
0130 PROC FINDSUBSTRING
0140 LENGTH:=LEN(STRING$)
0150 SUBLENGTH:=LEN(SUBSTRING$)
0160 POSITION:=1
0170 MATCH:=FALSE
0180 REPEAT
0190 IF SUBSTRING$=STRING$(POSITION:POSITION+SUBLENGTH-1) THEN
0200 MATCH:=TRUE
0210 PRINT SUBSTRING$," FOUND IN POSITION ",POSITION
0220 ELSE
0230 POSITION:=POSITION+1
0240 IF POSITION>LENGTH-SUBLENGTH+1 THEN PRINT "NO MATCH"
0250 ENDIF
0260 UNTIL MATCH OR POSITION>LENGTH-SUBLENGTH+1
0270 ENDPROC FINDSUBSTRING